home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / sweep.arc / SWEEP.BAS next >
Encoding:
BASIC Source File  |  1985-10-12  |  5.9 KB  |  94 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE SWEEP.COM
  2. 110 OPEN "SWEEP.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I% = 1 TO 74
  6. 150    LINESUM% = 0
  7. 160    FOR J% = 1 TO 8
  8. 170       READ BYTE%
  9. 180       CHECKSUM = CHECKSUM + BYTE%
  10. 190       LINESUM% = LINESUM% + BYTE%
  11. 200       LSET A$ = CHR$(BYTE%)
  12. 210       PUT #1
  13. 220    NEXT J%
  14. 230    READ LINECHECK%
  15. 240    IF LINECHECK% <> LINESUM% THEN PRINT "ERROR IN LINE";299 + I%
  16. 250 NEXT I%
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 55708 THEN PRINT "SUCCESSFUL COMPLETION!" : END
  19. 280 PRINT "COM FILE IS NOT VALID.." : END
  20. 300 DATA    233,   173,     0,    13,    10,    62,    62,    62,   615
  21. 301 DATA     32,    83,    87,    69,    69,    80,    32,    62,   514
  22. 302 DATA     62,    62,    32,     0,    58,    92,    40,    67,   413
  23. 303 DATA     41,    32,    67,   111,   112,   121,   114,   105,   703
  24. 304 DATA    103,   104,   116,    32,    67,   104,    97,   114,   737
  25. 305 DATA    108,   101,   115,    32,    80,   101,   116,   122,   775
  26. 306 DATA    111,   108,   100,    44,    32,    49,    57,    56,   557
  27. 307 DATA     53,    26,    78,   101,   101,   100,   115,    32,   606
  28. 308 DATA     68,    79,    83,    32,    50,    46,    48,    32,   438
  29. 309 DATA     43,    36,    65,   108,   108,   111,    99,    97,   667
  30. 310 DATA    116,   105,   111,   110,    32,    80,   114,   111,   779
  31. 311 DATA     98,   108,   101,   109,    36,    83,    87,    69,   691
  32. 312 DATA     69,    80,    58,    32,    67,    79,    77,    77,   539
  33. 313 DATA     65,    78,    68,    32,    80,   114,   111,    98,   646
  34. 314 DATA    108,   101,   109,    36,    83,    87,    69,    69,   662
  35. 315 DATA     80,    58,    32,    65,    98,   110,   111,   114,   668
  36. 316 DATA    109,    97,   108,    32,    69,   120,   105,   116,   756
  37. 317 DATA     36,     0,     0,     0,    67,    79,    77,    83,   342
  38. 318 DATA     80,    69,    67,    61,     0,     0,     0,     0,   277
  39. 319 DATA      0,     0,   125,     0,     0,     0,    92,     0,   217
  40. 320 DATA      0,     0,   108,     0,     0,     0,    42,    46,   196
  41. 321 DATA     42,     0,    46,    46,     0,   143,     4,     0,   281
  42. 322 DATA    180,    48,   205,    33,    60,     2,   115,     9,   652
  43. 323 DATA    186,    58,     1,   180,     9,   205,    33,   205,   877
  44. 324 DATA     32,   134,   196,   163,   137,     1,   188,   143,   994
  45. 325 DATA      4,   187,   254,     9,   177,     4,   211,   235,  1081
  46. 326 DATA    180,    74,   205,    33,   115,     5,   186,    74,   872
  47. 327 DATA      1,   235,   224,     6,   187,    44,     0,   142,   839
  48. 328 DATA      7,    43,   255,   190,   140,     1,   252,    38,   926
  49. 329 DATA    128,    61,     0,   116,    20,    86,    87,   185,   683
  50. 330 DATA      8,     0,   243,   166,    95,    94,   116,    15,   737
  51. 331 DATA     42,   192,   185,   255,   255,   242,   174,   235,  1580
  52. 332 DATA    230,     7,   186,    93,     1,   235,   180,   131,  1063
  53. 333 DATA    199,     8,   137,    62,   148,     1,   140,     6,   701
  54. 334 DATA    150,     1,   140,     6,   152,     1,   140,    14,   604
  55. 335 DATA    156,     1,   140,    14,   160,     1,   140,    14,   626
  56. 336 DATA    164,     1,     7,   160,   128,     0,     4,     3,   467
  57. 337 DATA    162,   125,     0,   198,     6,   126,     0,    32,   649
  58. 338 DATA    199,     6,   127,     0,    47,    67,   184,     0,   630
  59. 339 DATA     51,   205,    33,   136,    22,   139,     1,    42,   629
  60. 340 DATA    210,   184,     1,    51,   205,    33,   186,    60,   930
  61. 341 DATA      3,   184,    35,    37,   205,    33,   180,    25,   702
  62. 342 DATA    205,    33,     4,    65,   162,    19,     1,   190,   679
  63. 343 DATA     79,     3,    42,   210,   180,    71,   205,    33,   823
  64. 344 DATA    190,    22,     1,    42,   210,   180,    71,   205,   921
  65. 345 DATA     33,   190,     3,     1,   252,   172,    10,   192,   853
  66. 346 DATA    116,     8,   138,   208,   180,     2,   205,    33,   890
  67. 347 DATA    235,   243,   185,   244,     1,   180,    11,   205,  1304
  68. 348 DATA     33,   226,   250,   129,    62,   137,     1,    10,   848
  69. 349 DATA      3,   114,    12,   178,    13,   180,     2,   205,   707
  70. 350 DATA     33,   178,    10,   180,     2,   205,    33,   187,   828
  71. 351 DATA    152,     1,   197,    22,   148,     1,    42,   192,   755
  72. 352 DATA    180,    75,   205,    33,   140,   200,   142,   216,  1191
  73. 353 DATA    142,   192,   142,   208,   188,   143,     4,   156,  1175
  74. 354 DATA     42,   210,   184,     1,    51,   205,    33,   138,   864
  75. 355 DATA     22,    19,     1,   128,   234,    65,   180,    14,   663
  76. 356 DATA    205,    33,   157,   186,    93,     1,   114,    12,   801
  77. 357 DATA    186,    21,     1,   180,    59,   205,    33,   115,   800
  78. 358 DATA     10,   186,   116,     1,   180,     9,   205,    33,   740
  79. 359 DATA    235,    98,   144,   139,    22,   173,     1,   180,   992
  80. 360 DATA     26,   205,    33,   128,    62,   175,     1,     0,   630
  81. 361 DATA    117,    12,   186,   166,     1,   185,    16,     0,   683
  82. 362 DATA    180,    78,   205,    33,   235,     4,   180,    79,   994
  83. 363 DATA    205,    33,   114,    37,   139,    30,   173,     1,   732
  84. 364 DATA    246,    71,    21,    16,   116,   240,   131,   195,  1036
  85. 365 DATA     30,   128,    63,    46,   116,   232,   139,   211,   965
  86. 366 DATA    180,    59,   205,    33,   131,     6,   173,     1,   788
  87. 367 DATA     43,   198,     6,   175,     1,     0,   233,    63,   719
  88. 368 DATA    255,   129,    62,   173,     1,   143,     4,   116,   883
  89. 369 DATA     19,   131,    46,   173,     1,    43,   198,     6,   617
  90. 370 DATA    175,     1,   255,   186,   170,     1,   180,    59,  1027
  91. 371 DATA    205,    33,   235,   159,   186,    78,     3,   180,  1079
  92. 372 DATA     59,   205,    33,   138,    22,   139,     1,   184,   781
  93. 373 DATA      1,    51,   205,    33,   205,    32,    92,     0,   619
  94.